RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 


Pia ee eee Era eee ee ee 


ef ILE®® 1D eeRM3XKEYO 5 
RRRRRRRR Ss MM 333333 XX XX KK KK EEEEEEEEEE YY YY 000000 ; 
RRRRRRRR MM MM 33 XX XX KK KK EEEEEEEEEE YY YY 000000 : 
RR RR MMMM MMMM 33 XX XX KK KK EE YY YY oOo : 
RR RR MMMM MMMM XX XX KK KK EE YY YY 00 00 : 
PR RR MM MM MM XX XX KK KK EE yy YY 00 00 : 
RR RR MM MM MM 3 XX XX K « EE yY YY 00 00 : 
RRRRRRRR MM MM 3 XX KKKKKK EEEEEEEE YY 00 00 P 
RRRRRRRR MM MM XX KKKKKK EEEEEEEE YY 00 00 : 

RR MM MM 3 XX XX KK K EE YY 00 00 : 
RR RR MM MM XX XX KK KK EE YY 00 00 : 
RR RR MM MM 3 XX XX KK KK EE YY 00 00 nen ° 
RR RR MM MM XX XX KK KK EE YY 00 00 eawe : 
RR RR MM MM 333333 XX XX KK KK EEEEEEEEEE YY 000000 = HY 
RR RR MM MM XX XX KK KK EEEEEEEEEE YY 000000 anne : 
LL LIIII SSSSSSSS : 
LL eeeeel SSSSSSSS : 
LL I] SS : 
LL II SS : 
LL I] SS : 
LL I] $$ 3 
LL II SSSSSS : 
LL I] SSSSSS : 
LL 1] SS 3 
LL | SS : 
LL il $$ : 
LL II S$ 3 
LLLLLLLLLL III SSSSSSSS 3 
LLLLLLLLLL IIIII1 SSSSSSSS é 


ont ae a et A Se ee nen am ne oe ie 


1 
RMSXKEY 1984 02:12:3 VAX-11 Bliss-32 V4.0=-74 Pa 1 
yer 71984 93:04:48 DT SKSVMSNASTERSCRMS SRCURMSXKEVO.B32¢9°° (1) 


; 1 001 MODULE RM3XKEYO (LANGUAGE (L188 32) P : 
: ¢ Ong jDENT = 'v04-000 : 
Tie oie : 
: 6 BO08 1 PETTITT LILI LLL LLL LLL LLL LLL iiiiiiiiiiiiiiiiiiie : 
3 7 0007 1 !* * 3 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
: & 0009 1 :* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * Fy 
: i Bot) : i. ALL RIGHTS RESERVED. . : 
: \¢ Bot¢ 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
, Y 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
s 616 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
co fo 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
: | «(16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * s 
; i id : ps TRANSFERRED. . : 
> * e 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
é 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; $ bos) ; ba CORPORATION. br : 
5 :® Pt 
; 2 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITy OF ITS’ * 3 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
a 0056 1 is : : 
: a7 0027 1 PITITITITITITITILILILI LLL LLL LILI LiLiliLiTiiiiiiiiiriiiiiiiiiiie r 
; a 0028 1 3 
8 Be lis : 
: 31 0031 FACILITY: RMS32 index sequential file organization ; 
aa 0035 1 i ABSTRACT: ; 
: 34 0034 1! This routine fills in the KEY XAB from the disk : 
Pn ae 1] : 
ee 0037 1 | ENVIRONMENT: : 
: 3$ $039 1! VAX/VMS operating system ; 
:; 40 0040 1! 3 
>: 641 0041 1 !<- 

it O08 | | 

; 0044 1 | AUTHOR: D. M. BOUSQUET 

; 45 0045 i CREATION DATE: 18-AUG-78 14:19 

: 4? 9047 MODIFIED BY: 

; 0049 1 | v03-008 DAS0001 David Solomon 25-Mar-1984 

3 20 B030 : } Fix broken branches. 

. & 0089 1! v03-007 LJA0099 Laurie J. Anderson o6=Sep~1985 

, 39 Bee 1! Fix bugcheck, where someone will do a $DISPLAY on a 

; «54 054 1! file opened with BRO. In this case, the index descriptors 

$ 2? boee ! } are not allocated. 

: 5 6089 1 v03-006 MCNO002 Maria del C. Nasr 31-Mar-1983 


RM3XKEYO 16-5ep-1984 02:12:3 VAX=-11 Pl ise. -32 v4. 2 
v04-000 13-308-138e 96: h9:28 DISKSVMSMASTER: rene, she RM3XKEYO. B32, had (1) 
$ : 0089 ! } More Linkages reorganization. 
: 60 $60 4 v03-005 MCNO001 Maria del C. Nasr 01-Mar-1983 
; $s BRP 4 : } Reorganize Linkages 
: 6 $068 1 i v03-004 KBT0289 Keith B. Thompson 23-Aug-1982 
; rt: bpee } Reorganize psects 
: 66 0066 1 i v03-003 KBTO074 Keith B. Thompson 29-Jun-1982 
: 24 444 : } Enable the presess ian of no-contiguous key descriptors 
: 69 00 9 1! v03-002 KBT0017 Keith Thompson 19-Mar-1982 
; 070 1! Ignore compression bits when filling in xab of a prologue 
; 4! BR0) : 1,2 file 
tas . 0075 1! V03-001 JWHOO001 Jeffrey W. Horn 16-March-1982 
: es Bore : Fix writing into space beyond the old end of XABKEY. 
: 7% 0076 1: v02=006 DyD0001 Darrell Duffy 1-March-1982 
: a tA 4 : } Fix probing in RMS$XKEYO3. 
: 79 0079 1! v02-005 KBTO004 K B Thompso 8-Feb-1982 
; & 0080 1! Correct seunrenetan bits me wll filling in key xab from 
: 4 oes, ; } prologue and stuff the prologue version if long key=0 xab 
: 83 0083 1! v02=004 cpso0ot C Saether 9-Aug-1981 
; Se oon : Use alternate Linkage decloretion for RELEASE. 
: 86 0086 1: v02=003 REFORMAT D M WALP 24-JUL-1980 
: 687 0087 1! 
; 688 0088 1! 
: 89 0089 1 ! REVISION HISTORY: 
: 90 0090 1! 
: 91 0091 1! Wendy Koenig, 24-OCT-78 14:03 
: 54 493 : ! Xx0002 - make changes caused by sharing conventions 
: 0094 1 ieee 
; ¥ 0095 1 
; | 696 0096 1 LIBRARY 'RMSLIB:RMS 
; 97 0097 REQUIRE 'RMSSRC: RMS IBXDEF'; 
: 99 0163 1 ! Define default psects for code 
: 100 0164 1! 
; 101 3192 1 eee | 
: 106 166 1 CODE = RMSRMS3(PSECT_ATTR), 
: 10 0167 1 PLIT = RMSRMS3(PSECT_ATTR); 
: 104 0168 1 
3; 105 0169 1 
: 106 170 1 LINKAGE 
: 107 77% CACHE, 
: 108 76 1 LA CHKSUA. | 
; 109 0173 ~«#1 L_FABREG_7 
: 110 174 1 L7LINK_7710_11, 
s 1911 175 «1 t ~RELEASE_ FAB; 
: 116 176 1 
> 0177 1°! External Routines 
: 116 0178 1! 
{ 


sn snes 


RM3XKEYO $ep-1984 02:12:3 VAX-11 Bliss=-32 V4.0-74 Page 3 

israel 1B-Se0-1984 96:44:28 DISKSVMSMASTER:(CR Yne SRCIRMSXKEYO.B3204" (1) 

1 EXTERNAL ROUTINE 

1 RMS$CACH c, : RL$ E ADDRESSING_MODE( LONG_RELATIVE ), 
1 RMSCHKSUM : RLS 

1 : RL$ 

} RL$ 


PMSGET NEXT_KEY 


10.11, 
RMSRELEASE KSE_FAB ADDRESSING _MODE( LONG_RELATIVE ); 


COOCCCO 
> i 
C200 0D0D00~y 
FWR—OO 


——— 


2 
RM3XKEYO 16-8 #1984 02:12:3 
y04-000 RMSXKEYO3 1eree- 1 3be 98: bFi2 


1 SSBTTL  ‘RMSXKEYO3' 
GLOBAL ROUTINE RMSXKEYO3 ( XAS : REF BBLOCK ) : RLSFABREG_7 = 


uw 


e+ 
FUNCTIONAL DESCRIPTION: 
The KEY XAB is filled in from the KEY descriptor 
CALLING SEQUENCE: 
RMSXKEYO3S ( XAB ) 
INPUT PARAMETERS: 
XAB - Pointer to the KEY XAB we are filling in 


IMPLICIT INPUTS: 


AB 
REF) - fey of reference 
KNM] - Pointer to key name buffer 
SKEYDEF 
CKEYS$S_KEYNAM] ° 


Size of the ny oor buffer, 32 
Buffer of the le) 


ev 
x 
m 
~< 
bad 
=~ 
Pad 
Mm 
~=< 
= 
T 


eyname (tab 


b{ EBS ONGC ASE - File organization 
IFB$C_IDX) - Indexed file organization constant 
CIFBSB_MODE) - Mode of the key name buffer 
CIFBSB_PLG_VER) - Index file prologue version 
SIDX_DFN 
Call fields in the index descriptor are input, 
but specifically reference a few 
Bae - Index area number 
SEGMENTS) - Number of segments 
CFIXED_BLNJ - Fixed block length analogous to the XAB 
beOS I ITON) - Position of first segnen 
SIZE] - Size of first segmen 


lt I ih te el tee te Rh het Rd et ed ee ee ee 


i QUTPUT PARAMETERS: 
XAB - Untouched by this routine 
IMPLICIT OUTPUTS: 


XAB 
Call fields are filled in from the index descriptor] 
ROUTINE VALUE: 


RMSERR 
(SUC) = Success code 


SIDE EFFECTS: 


a kk a a at a ts at ot ss 8 ss ss st SS Ss Ss Ss SS SS 2 2s SS So as Gs SS SS SS Ls SS SS YS 2 SS Ss YS Ls SS Ss YS YS YL 


NNN NSN A AA AA AA AAA MMMM PEPE EPA 
C8 NIA UE WIN 0 ODNOUE WN O OONOU EWN -2 0 ODNAU EWN (“OVO ONAOUESWN “OVO ONOULWwN 


COOOOOOOSOOCSOOOOSOSOSOOSSOSOOOSSSSOSSOOCSOSCOSCOOCOCO OOOO OOOOOOOOOOOOOOOOoOO 
FFA AMAA IWIN PI NI NINININIDN 2 2 OS PM MH DOC OOCOCOCOCOCOOOOOOOOOOMWMMo”o 
=OODNOA NE WN 0 OD NOAU EWN $$ OC OONO UE WN 0 ODNOAU EWN OODOVNOUE WN OOOND 


POPSPPNIPYNINDPINININIPIPIPYINIPUNINPONPIPYNINPININININIPUNPINYININPINIPONPIPYINININININID 2 2 OO OS SS Se 
a a a ee a a a ed dd dd dd 


Bae Se Se Se Ge Se Ge Be Se Ge Ge Ge Se Se Bs Se Se Se Ge Be Se Se FH SF Se Ge Se Se Fe Se Se Se SH SH Ss Se Be Se Se See SHS SHS Se Se Be Oe SH Se Se Se Se ee Seas 


ee ee 


0-74 
SRC 


7 
2 
VoL-080" RMSKKEYO 1Soseoctg 13:08:28 DERKSUmemASTeRscems secRMSxKEv0.83209%° 3 
179 ! none 
lee 
BEGIN | 
EXTERNAL REGISTER | 
COMMON FAB STR; 


OCAL 
SAV_BDB 
KEY~DESC¢ : REF BBLOCK; 


! If BIO was set in the FAB, then we only want to make sure user knows that 
' the NUM_KEYS is not filled in 


TF lFAB C IFBSB_NUM_KEYS } EQL 0 
RETURN RMSSUC( OK_NOP ); 
Let's first check to see if this is a indexed file 
i C IFBS$B_ORGCASE ) EQL IFB$C_IDX 
BEGIN 


' Now to make sure that the reference input in valid find the internal 
! index descriptor 


DOOSCOSGOCSCSOOCOOOOOOOOOOMMMMmMmocDOODOD 


Start with the primary gett pool NOTE: We cannot call rm$key_desc 
here because of register problems but we do know that the first 
index descriptor off the ifab is the one for key 0 so get it that way 
IDX_DFN = .IFAB C IFBSL_IDX_PTR ); 
! Make sure that the index descriptors have been allocated before 
' you use it. Return success if it's not there, that's okay. 
i z1OX_DFN EQLU 0 
RETURN RMSSUC( SUC ); 
Loop until we find it 


WHILE .XAB C XABSB_REF J] NEQ .IDX_DFN C IDXS$B_KEYREF J 


AUS WN OO ONA VEU SO ODOM EWN SO OODNC NEW OO DNOUS WO 


If we ran out of keys there is a problem 
IF NOT RMSGET_NEXT_KEY() | 
RETURN RMSERR( REF ); | 

} Now to read in prologue descriptor | 
| 


SOOOOOOCOOCOCOCOOSOSCOOCOOCOOCSOSOSCOCSOSO SOOO COCOOCOCOOOCO SOOO OOOOOOOCOOOOOO 


PIPPI IPIAINIPINPININIDINNIPPINPYPINAINPYINIPYNIPIPINPYNIPOPINININININPIPININPINPOPUNNIPONoPony 


DWDCOOOOOWO OW W000 009 00 09 09 BIN NII NN NINA AAA AAAA AAMT ES PERL LLL 
DONAOUESWN DO VOONOULSWA -“OVOONO FWD ODO VDOVNAUSWPR “OVO ONOUSWP "OW ONOUL 
BPMN NAAN NANI AIAN NIAAA AIL PPOPIPIPOPIPOPOPINPOPONIMOPIPUNPINYPINPUNY SS 


Bee Ge Be Ge Se Ge Se Ge Se Se Ge Fe Se Ge Ge Se He Se Se FH Se Fe Se Se Se FH Ge Se SH Ss SF Se SH Se SH Se SH Se SH S5 Oe SESE SESE SES Se Se See Se Se Se Sees 


POP IPPOPNNIPIPDPYAPINDNINIPININPYUDSPUPIPYNDIPYIPINPINPININININIDININININIDY 2 SS SS 


WWW NILA AISI ROPOPONONPUNONI ND 


Mew 0 0e~ 


BEGIN 
GLOBAL REGISTER 


RMSXKEYO3 VerSep-1986 WS:0s4s 


: 4 COMMON_10_STR; 


RM3XKEYO - 
vO4~000 TkSUMSMAS TER: 5 


X-11 BL V4.0-74 Page 
SKSVMSM STERSCAME  SRCIRM3XKEYO.B3207° (2) 


LOCAL | 
STATUS; | 
STATUS = RMSCACHE( .IDX_DFN C IDX$L_VBN J, 512, 0); | 
If error then return with error code in status 
IF NOT .STATUS 
RETURN .STATUS; 
Now to release the bucket and check it 


RETURN_ON_ERROR( RMSCHKSUM() 
RMSRELEASE (0) 


vv 


SOOO OOCOCOOSOOOCOOCOOCOOCOSCOOOSOSSOOSOSOSCOSCOOCOOCOCOCCO OOOO OOOOCOOCOOOOOOO 


Now point to the key descriptor in the prologue 

KEY_DESC = .BKT_ADDR + .I1DX_DFN C IDX$W_OFFSET J; 

Now to save the BDB before CH$MOVE clobbers it 

SAV_BDB = .BDB 

END; 

! Now to do a straight move from the key descriptor to the XAB 


' 
CHSMOVE ( ser teoer eats KEYST_KEYNAM ) = SBYTEOFFSET ( KEYSB_IANUM ), 
KEY_ KEY$B_IAN 
XAB~C XABS$B_IAN J); 
If this is a prologue 3 file correct the compression bits 


if .1FAB C IFBSB_PLG_VER } GEQu 3 
THEN 


SET in the prologue = CLEAR in the xab 

KAB C XABSB_FLG J] = .XAS C XABSB_FLG J XOR ( XABSM_IDX_NCMPR OR 
XABSM-KEY-NCMPR OR 
XABSM~DAT-NCMPR ); 


! If this is a long key xab and it is key-0 (primary) | 
| 


BEBE FAWN AAAI POPPIN NPININIDYD 2 2 I OS SS S| SHS DOOOCOOOCOCOCO 


C009 09 NI NNN NNN SI NAA AAAA AAA AMM EE PEP EES 


‘Co: = 
WRN OO OBNOUES WIN (OO ONAUE WN (OC OONAOUES WN" ODOONOUSWN—O 
AANA AIA AN ANNA AAW NINIAI NW AINNIWI WWI NANI AWWWNAINNIN 


then fill in the prologue version number 


iF ( .XAB f XAB$B_BLN ] EQLU XABSK_KEYLEN ) AND 
a .XAB { XABSBTREF } EQLU 0 ) 


XAB C XABSB_PROLOG ) = .IFAB C IFBSB_PLG_VER J]; 
If the user has a key name buffer fill it in 
if .XAB C XABSL_KNM ) NEQ 0 


0000000 
SSBLEAR 
PAANANA SE HANNS AIAN AAAI BE BEEP PLP PPL PPP PPP PPL PEE EE 


PROPS PIPININIPINPONDNINININYPYPINPDNIPIPINPININININININININININININPYNINYPINPYNININIPINONYINININININPONUNOPUNUPNyPoTPyD 
MEW O OONOAU EWN OOOO UE WIN = 9 ODONAUE WN OODONAUE WN (OVO ONOUES WN —O 


PIII & & & & 


oo 
N— 


2 
RM3XKEYO rhesé =1984 12:3 VAX-11 Bliss-32 V4.0-74 Page 7 
yOu O80 RMSXKEYO3 12-8081 3be 96: bF:2 DISKSVMSMASTER: CRMS.SRC RM3XKEYO.B32:1> (2) 
93 THEN 
94 BEGIN 
95 LOCAL 
KNM_ADDR; 
38 KNM_ADDR = .XAB C XABSL_KNM J; 
BY Probe it 
. iFNOWRT (  * KEYSS_KEYNAM ),.KNM_ADDR,IFAB C IFBSB_MODE J, 
04 P GLOBAL REGISTER 
05 P R_BDB_STR; 
06 Bp 
7 P BDB = .SAV B08: 
P RMSREL EA ASET 
P AL RMSERR (KNM) 


Now to move the buffer 
CHSMOVE( KEYSS_KEYNAM,KEY_DESC C KEYST_KEYNAM J,.KNM_ADDR ) 
END; 

Now move Last long word. 

XAB C XABSL_DVB ] = .KEY_DESC C KEYSL_LDVBN J; 


BEGIN 
ener’ REGISTER 
R_BDB_STR; 


BDB = .SAV_BDB; 
RMSRELEASETO) 
END 

END; 


Now to return the success code if all went well 
RETURN RMSSUC( SUC ) 
END; 


OOOCOCOCOCOCOCOCOCOSO COCO OCOCOCSCOCCOOCCOCOOOCOCOOOOCOOOOOOOOOOoOO 
BWANA ALA WNAAANA AAW AW AANA AA AWNNAW WAAAY AW AANA 


DO000 000000000000 09.09 09 09 09 INI NII NINN NINA AAAS FAAAA MMI 
SOWA EWN SO ODNAU EWN OO ODNAUN EWN MOOREA EWR O ODN 
Tere CP PP ot oP ror ee ee ee Pt tt tt tt PP tt tt tt ot ot 


WWIII AAI AANA AAA AAW AAO OO 
WAI WIAA ARI PIPINIPININININY DY Ss OO OS SS || OOO 
NOMEN 0 OONOUE WW —OOONAUS WN —O0OW 


E RM3XKEYO 
T \v04-000\ 


Tl 
1D 
.EXTRN RMSCACHE, RMSCHKSUM 
“EXTRN RMSGET_NEXT_KEY 

-EXTRN RMSRELEASE 

.PSECT RMSRMS3,NOWRT, GBL, PIC.2 


007C 8F BB 00000 RMSXKEYOS:: 


] 
2 
RM3XKEYO 16-Sep-1984 02:12:3 VAX"11 Bliss-32 V4.0-74 Pp 8 | 
yOen ODO RMSXKEYO3 encom aee Pee ae MCAS teaching shcSamsxxevo.es2rt” c2e 
H 
L 


#AM<R2,R3,R4,R5,RO> ; 0186 


08 ge 6 # : 
00B2 CA 7 TSTB. =—s-_:« 1 78 (1 FAB) + 0259 
7. oe OB BNEQ 1 : 
50 8059 f 3¢ fF MOV ZWL #32857, RO + 0261 
02 23. AA 94 14 1$ CMPE S3caraB), #2 + 0265 
03 } 0 18 BEQL : 
00c2 33 1A 38: BRW 13$ : 
57 OOAC CA bg 9010 $: MOVL 172(IFAB), IDX_DFN + 0276 
F6 13 00022 BEQL 2$ + 0280 
5 2 AE D0 00 4 MOVL  XAB + 0286 
21. OA 1 A6 91 8 4$: CMPB CT 33(1DX_DF") : 
Op 13 0002D BEQL ; 
00006 30 0002F BSBW  §RMSGET_NEXT_KEY + 0291 
F3 50 &8 90 : BLBS 9 4$ ; 
50 875c BF 3C 000 MOVZ2WL #34652, RO + 0293 
28 11 0003A BRB 6$ ; 
bs 0003C 5$: CLRL sR + 0304 
52 0200 BF 3¢ 00035 MOV2WL #512, R2 : 
51 A A? DO 0004 OVL  10¢IDX_DFN), R1 : 
000000006 EF 16 00047 $B RMS$CAC : 
6D 0 59 00040 BLBC —« STATU + 0308 
00006 30 00050 BSBW RMSCHKSUM + 0316 
04 AE 50 00 00035 MOVL RO, SLATUS F 
OE 04 AE E8 00057 BLBS STATUS, 7$ : 
53 04 00058 CLRL ayfT ; 
000000006 EF 16 0005p JSB RMSRELEASE ; 
50 04 AE dO 00063 MOVL = STATUS, RO : 
79 11 00067 6$: BRB 14 : 
50 OE AZ 3C 00069 7S: MOVZWL 14 C1Dx DFN) : 0320 
6E 55 50 C1 0006D ADDL3 BKT_ADDR, Weer _DESC : 
04 AE 54 DO 00071 MOVL ie AV_BDB : 0324 | 
7E 6E 06 C1 00075 ADDL3 #6, KEY_BESC, -(SP) + 0332 
08 A6 9 2— 28 00079 MOVC 46, a(SP)+, 8(R6) ; 
0 00B7 CA 91 O07E CMPB =s-s« 18 3(1FAB), #3 : 0336 
05 1F 0008 BLSS $ : 
12 A6 C8 «BF aC 00085 XORB2 #200, 18(R6) + 0341 
4C BF 01 A6 91 OO08A 8$: CMPB. s«1(R6S, #76 : 0348 
0B if O08F BNEQ 3 ; 
17, a6 95 00091 TSTB é (R6) + 0349 
06 1 0094 BNEQ 3 ; 
48 AG 0087 CA 90 00096 MOVB  183(IFAB), 72(R6) > 0351 
8 Ab b 999¢ 9$: TSTL 26(R6) : 0355 
26 OF BEQL 12$ ; 
55 38 =A6 DO QOOAI MOVL 36(R6) KNM_ADDR : 0361 
65 20 OA AA 0 OOAS PROBEW 10(IFAB), #32, (KNM_ADDR) : 0373 
13 OAA BNEQ 11$ : 
54 04 AF D A MOVL § SAV_BDB, BDB : 
53 04 0008 CLRL RB : | 
000009006 F 16 08 JSB RNSRELEASE : 
50 8774 BF 3¢ B MOVZWL #34676, ; 
3 17 000BD 10$: BRB 14$ ; 
7E 6 4 cI BF 11$:  ADDL3 #52, KEY dese -(SP) > 0378 
E 0 28 C3 MOVC3 #32, a(SP)+, (KNM_ADDR) ; 
0 6E 00000054 SF C1 oC 12% ADDL3 ff Key be éc, RO™ > 0384 
3c AG 60 DO 000CF MOVL (ROS, 60TR6) : 


; to 234 code + 0 data bytes 
: ple Time: :16. 
3; Lines Min: 47 
3 ,onones/CPU-Mig: 1529 
3 ry Used: 98 pages 
3 ee ation Complete 


2 
RM3XKEYO 18-5¢ “19 :12:3 VAX-11 Bliss-32 V4.0-7 
yoe~000 RMSXKEYO3 1 ~3007 138% 96: ias DISKSVMSMASTER: CRMS. SRC RM3XKEYO. B32: a 
54 04 af DO bs MOVL SAV_BDB, BDB 
55 D4 Dd CLRL 
_ Senosews hae d9 JSB eae la 
1 OD DF 13$: MOVL 1, R 
8 C Ee 14$: ADDL2 #8, SP 
007C F BA E POPR #*M<R2,R3,R4,R5,RO> 
5 000E9 RSB 
; Routine Size: 234 bytes, Routine Base: RMSRMS3 + 0000 
3 8 p40) 1 
; 9 o86 1 END 
: 340 0403 1 
3; «(341 0404 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: RMSRMS3 234 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Sea en ee es oe Symbols eooee--- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 58 1 154 00:00.4 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3XKEYO/OBJ=OBJ$:RM3SXKEYO MSRC$:RMSXKEYO/UPDATE=(ENHS$:RM3XKEYO) 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


929 AH-BT13A-SE 
Vol? VAX/VMS V4.0 


